home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / CSRPOS.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  299b  |  13 lines
  1. SUB GetCursorPos (Row%, Col%)
  2.  
  3.    'Captured from post by Tony Elliot
  4.    'Purpose : To get the real cursor position from BIOS
  5.    'Input   : none
  6.    'Return  : Column number in Col%, Row number in Row%
  7.  
  8.    DEF SEG = 0
  9.    Col% = PEEK(&H450) + 1
  10.    Row% = PEEK(&H451) + 1
  11.    DEF SEG
  12. END SUB
  13.